home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / business / lex_demo.lha / HD_Install < prev    next >
Text File  |  1996-11-06  |  5KB  |  176 lines
  1. (set WhereTo "Wählen Sie das Verzeichnis wo LEXIKA hin soll\n(Ein Verzeichnis wird erstellt)")
  2.  
  3. (set CopyExe "Copying Lexika")
  4. (set Copytxt "Copying Texte")
  5. (set Copys "Copying S")
  6. (set Copyc "Copying C")
  7. (set Copyscr "Copying Scripts")
  8. (set Copypin "Copying Pinsel")
  9.  
  10. (set StartP "\n\nFolgende Zeile wird in die \n User startup eingefügt \n Um Lexika zu starten ist ein reboot nötig ! \n Assign LEXIKA: \"")
  11.  
  12. ;; Help messages
  13. (set WhereToHelp "Wähle ein verzeichnis in das \n das Magazin installiert werden soll")
  14.  
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16. ;; Procedures                                                             ;;
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. (procedure
  19.         makedirstruct
  20.         (set @default-dest (tackon @default-dest "Lexika"))
  21.         (makedir @default-dest
  22.                                 (infos)
  23.         )
  24.         
  25.         (makedir (tackon @default-dest "Texte")
  26.                                 (infos)
  27.         )
  28.         (set txtDest (tackon @default-dest "Texte"))
  29.         
  30.         (makedir (tackon @default-dest "C")
  31.                                 (infos)
  32.         )
  33.         (set CDest (tackon @default-dest "C"))
  34.         
  35.         (makedir (tackon @default-dest "S")
  36.                                 (infos)
  37.         )
  38.         (set SDest (tackon @default-dest "S"))
  39.         
  40.         (makedir (tackon @default-dest "Scripts")
  41.                                 (infos)
  42.         )
  43.         (set ScrDest (tackon @default-dest "Scripts"))
  44.         
  45.         (makedir (tackon @default-dest "Pinsel")
  46.                                 (infos)
  47.         )
  48.         (set pinDest (tackon @default-dest "Pinsel"))
  49. )
  50.  
  51. (procedure
  52.         installexes
  53.         ;;
  54.         ;; Procedure to copy the main executables
  55.         ;;
  56.         ;; No args, no locals, no returns.
  57.         ;;
  58.         
  59.         (copyfiles
  60.                 (prompt CopyExe)
  61.                 (help @copyfiles-help)
  62.                 (source "LEXIKA:Lexika")
  63.                 (dest @default-dest)                
  64.                 (infos)
  65.         )
  66.         (copyfiles
  67.                 (prompt CopyExe)
  68.                 (help @copyfiles-help)
  69.                 (source "Lexika:Lexika.info")
  70.                 (dest @default-dest)
  71.                 (INFOs)
  72.         )
  73. )
  74. (procedure
  75.         installpin
  76.         (copyfiles
  77.                 (prompt Copypin)
  78.                 (help @copyfiles-help)
  79.                 (source "pinsel/")
  80.                 (all)
  81.                 (dest pinDest)
  82.                 (infos)
  83.         )
  84. )
  85.  
  86. (procedure
  87.         installdocs
  88.         (copyfiles
  89.                 (prompt Copytxt)
  90.                 (help @copyfiles-help)
  91.                 (source "Texte/")
  92.                 (all)
  93.                 (dest txtDest)
  94.                 (infos)
  95.         )
  96. )
  97. (procedure
  98.         installscr
  99.         (copyfiles
  100.                 (prompt copyscr)
  101.                 (help @copyfiles-help)
  102.                 (source "Scripts/")
  103.                 (all)
  104.                 (dest scrdest)
  105.                 (INFOS)
  106.         )
  107. )
  108. (procedure
  109.         installrexx
  110.         (copyfiles
  111.                 (prompt CopyS)
  112.                 (help @copyfiles-help)
  113.                 (source "S/")
  114.                 (all)
  115.                 (dest SDest)
  116.                 (infos)
  117.         )
  118. )
  119. (procedure
  120.         installstore
  121.         (copyfiles
  122.                 (prompt CopyX)
  123.                 (help @copyfiles-help)
  124.                 (source "C")
  125.                 (all)
  126.                 (dest CDest)
  127.                 (infos)
  128.         )
  129. )
  130.  
  131. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  132. ;; Start of the installer                                                 ;;
  133. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  134.  
  135. (set hello "\nWillkommen zu\n\nLEXIKA V1.0\n By Frank Zender\n\n© 1995/96 Terrorsoft, Cologme\n\nLexika Install Script Version 1.0")
  136.  
  137. (message hello)
  138. (welcome)
  139.  
  140. ;; Get directory to install to
  141. (set @default-dest (askdir
  142.                                                 (prompt WhereTo)
  143.                                                 (help WhereToHelp)
  144.                                                 (default @default-dest)
  145.                                         )
  146. )
  147.  
  148. ;; Make the directory structure, we'll have some destination vars at the end
  149. ;; of this proccy too
  150. (makedirstruct)
  151. (complete 10)
  152.  
  153. ;; Install the main executables
  154. (installexes)
  155. (complete 20)
  156. ;; Install the docs
  157. (installdocs)
  158. (complete 40)
  159. ;; Install Arexx examples
  160. (installrexx)
  161. (installpin)
  162. (installscr)
  163. (complete 60)
  164. ;; Install Storage dir
  165. (installstore)
  166. (complete 70)
  167.  
  168. ;; Add to the user-startup
  169. (startup "Lexika V1.0"
  170.         (prompt (cat (cat StartP @default-dest) "\""))
  171.         (help @startup-help)
  172.         (command (cat (cat "ASSIGN LEXIKA: \"" @default-dest) "\""))
  173. )
  174.  
  175. (complete 100)
  176.